home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Scanner Tech - System / card_7270.txt < prev    next >
Text File  |  1990-04-02  |  4KB  |  162 lines
  1. -- card: 7270 from stack: in
  2. -- bmap block id: 3736
  3. -- flags: 4000
  4. -- background id: 2601
  5. -- name: Scanner Tech - System
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set hilite of background button "The System" to true
  9.   set hilite of background button "How It Works" to false
  10.   set hilite of background button "Scan. Concepts" to false
  11.   set hilite of background button "File Formats" to false
  12.   hide card field "Select Field"
  13.   put "Press on this box for more information on the scanner system. Then press on the item desired." into card field "Message Center"
  14.   show card field "Message Center"
  15.   ResetMenuField
  16. end openCard
  17.  
  18. on closeCard
  19.   hide card field "Select Field"
  20.   hide card field "Message Center"
  21. end closeCard
  22.  
  23. on ResetMenuField
  24.   put " General Description" & return & " System and Memory Requirements" & return & " AppleScan Software" & return into card field "Select Field"
  25. end ResetMenuField
  26.  
  27.  
  28. -- part 55 (field)
  29. -- low flags: 81
  30. -- high flags: 0004
  31. -- rect: left=41 top=50 right=90 bottom=212
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 9
  37. -- style flags: 0
  38. -- line height: 12
  39. -- part name: Message Center
  40. ----- HyperTalk script -----
  41. on mouseWithin
  42.   show card field "Select Field"
  43.   hide card field "Message Center"
  44. end mouseWithin
  45.  
  46.  
  47.  
  48. -- part 54 (field)
  49. -- low flags: 81
  50. -- high flags: 2004
  51. -- rect: left=41 top=49 right=108 bottom=281
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: Select Field
  60. ----- HyperTalk script -----
  61. on mouseUp
  62.   global whichExample,showState
  63.   put empty into whichExample
  64.   put empty into showState
  65.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  66.   if line clickLine of me is not empty then
  67.     put word 1 of line clickLine of card field "Select Field" into whichExample
  68.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  69.     push card
  70.     visual dissolve to card
  71.     go to card whichExample
  72.   end if
  73. end mouseUp
  74.  
  75. on ResetMenuField
  76.   put " General Description" & return & " System and Memory Requirements" & return & " AppleScan Software" & return into card field "Select Field"
  77. end ResetMenuField
  78.  
  79. on mouseLeave
  80.   show card field "Message Center"
  81.   hide card field "Select Field"
  82. end mouseLeave
  83.  
  84.  
  85.  
  86. -- part 56 (button)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=451 top=3 right=42 bottom=491
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 1004 / 1004
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: 
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   play harpsichord a4
  101.   global search
  102.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  103.   if it is "Browse" then
  104.     visual wipe up slowly
  105.     go to card "Glossary" of stack "Glossary"
  106.   end if
  107.   if it is "Automatic" then
  108.     ask "Find Word?"
  109.     put it into search
  110.     if search is empty then
  111.       exit mouseUp
  112.     else
  113.       visual wipe up slowly
  114.       put "find search" into message box
  115.       hide message
  116.       go to card "Glossary" of stack "Glossary"
  117.       find word search in field "Text"
  118.       if the result is "not found" then
  119.         answer "Word not found." with "OK"
  120.         exit mouseUp
  121.       else
  122.         show card field id 13
  123.         wait 4 seconds
  124.         hide card field id 13
  125.       end if
  126.     end if
  127.   end if
  128. end mouseUp
  129.  
  130.  
  131. -- part 57 (button)
  132. -- low flags: 00
  133. -- high flags: 0000
  134. -- rect: left=402 top=3 right=42 bottom=438
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 1008 / 1008
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: 
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   doMenu "Print Card"
  146. end  mouseUp
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153. -- part contents for card part 54
  154. ----- text -----
  155.  General Description
  156.  System and Memory Requirements
  157.  AppleScan Software
  158.  
  159.  
  160. -- part contents for card part 55
  161. ----- text -----
  162. Press on this box for more information on the scanner system. Then press on the item desired.